EXCEL数据处理 要用vba代码实现 请高手进答:lastRow1 = Sheet1.Cells.Find("*", Range("A1"), xlFormulas, , xlByRows, xlPrevious).Row 'a文件的最大行数,lastRow2 = objSheet.Cells.Find("*", Range("A1"), xlFormulas, , xlByRows, xlPrevious).Row 'b文件的最大行数 For i = 1 To lastRow1 '遍历a文件的第一列 For...
excel vba 字符相似度问题答:Sub similar()Dim s,mFor i=2 to Columns(3).Find("*", , , , 1, 2).row For j=2 to Columns(1).Find("*", , , , 1, 2).row s=sim(Range("B" & i),Range("A" & j)) If j=2 Then m=s Else If s>m Then m=s Else If m=1 The...